inherited fmAddEditRO: TfmAddEditRO
  Left = 287
  Top = 133
  Width = 1164
  Height = 840
  Caption = 'fmAddEditRO'
  Constraints.MinHeight = 840
  Constraints.MinWidth = 1164
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited sbBottom: TStatusBar
    Top = 779
    Width = 1156
  end
  inherited Panel1: TPanel
    Width = 1156
    inherited BitBtn1: TBitBtn
      Left = 986
    end
    inherited BitBtn2: TBitBtn
      Left = 1074
    end
  end
  object Panel2: TPanel [2]
    Left = 0
    Top = 45
    Width = 569
    Height = 734
    Align = alLeft
    TabOrder = 2
    object Label18: TLabel
      Left = 16
      Top = 12
      Width = 92
      Height = 13
      Caption = #1055#1086#1083#1091#1095#1072#1090#1077#1083#1100' '#1091#1089#1083#1091#1075
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 16
      Top = 187
      Width = 67
      Height = 13
      Caption = #1050#1086#1084#1084#1077#1085#1090#1072#1088#1080#1081
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 16
      Top = 69
      Width = 122
      Height = 13
      Caption = #1044#1072#1090#1072' '#1087#1086#1076#1072#1095#1080' '#1079#1072#1103#1074#1083#1077#1085#1080#1103
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label6: TLabel
      Left = 16
      Top = 124
      Width = 105
      Height = 13
      Caption = #1055#1086#1076#1087#1080#1089#1072#1083' '#1079#1072#1103#1074#1083#1077#1085#1080#1077
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object lcbPU: TcxDBLookupComboBox
      Left = 15
      Top = 28
      DataBinding.DataField = 'PID_POLUCH'
      DataBinding.DataSource = dlgDS
      ParentFont = False
      Properties.DropDownListStyle = lsEditList
      Properties.DropDownRows = 15
      Properties.KeyFieldNames = 'PID'
      Properties.ListColumns = <
        item
          Caption = #1060#1048#1054
          FieldName = 'PP'
        end
        item
          Caption = #1057#1090#1072#1090#1091#1089
          FieldName = 'SDNAME'
        end
        item
          Caption = #1044#1072#1090#1072' '#1088#1086#1078#1076'.'
          Fixed = True
          FieldName = 'PDATEBIRTH'
        end>
      Properties.ListSource = dsPeople
      Properties.MaxLength = 0
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clBlack
      Style.Font.Height = -15
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = []
      Style.Shadow = True
      Style.IsFontAssigned = True
      TabOrder = 0
      Width = 538
    end
    object DBMemo1: TDBMemo
      Left = 17
      Top = 208
      Width = 536
      Height = 121
      Align = alCustom
      DataField = 'RNOTE'
      DataSource = dlgDS
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
      ScrollBars = ssVertical
      TabOrder = 1
    end
    object edRFDATE: TcxDBDateEdit
      Left = 18
      Top = 86
      DataBinding.DataField = 'RDATE'
      DataBinding.DataSource = dlgDS
      ParentFont = False
      Properties.DateButtons = [btnClear, btnToday]
      Properties.InputKind = ikMask
      Properties.SaveTime = False
      Properties.ShowTime = False
      Properties.WeekNumbers = True
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clWindowText
      Style.Font.Height = -16
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = [fsBold]
      Style.IsFontAssigned = True
      TabOrder = 2
      Width = 121
    end
    object lcbP: TcxDBLookupComboBox
      Left = 15
      Top = 140
      DataBinding.DataField = 'PID'
      DataBinding.DataSource = dlgDS
      ParentFont = False
      Properties.DropDownListStyle = lsEditList
      Properties.DropDownRows = 15
      Properties.KeyFieldNames = 'PID'
      Properties.ListColumns = <
        item
          Caption = #1060#1048#1054
          FieldName = 'PP'
        end
        item
          Caption = #1057#1090#1072#1090#1091#1089
          FieldName = 'SDNAME'
        end
        item
          Caption = #1044#1072#1090#1072' '#1088#1086#1078#1076'.'
          Fixed = True
          FieldName = 'PDATEBIRTH'
        end>
      Properties.ListSource = dsDL
      Properties.MaxLength = 0
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clBlack
      Style.Font.Height = -15
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = []
      Style.Shadow = True
      Style.IsFontAssigned = True
      TabOrder = 3
      Width = 538
    end
  end
  object Panel3: TPanel [3]
    Left = 569
    Top = 45
    Width = 587
    Height = 734
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 3
    object bFromFile: TcxButton
      Left = 0
      Top = 0
      Width = 587
      Height = 25
      Caption = #1044#1086#1073#1072#1074#1080#1090#1100'/'#1080#1079#1084#1077#1085#1080#1090#1100
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      OnClick = bFromFileClick
      Align = alTop
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000CE0E0000D80E00001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333387F3333333333333333333333333333387F333333333333344333
        3333333333387F3333333333333443333333333333387F333333333333344333
        3333333333387F3333333333333443333333333333387F333333333333344333
        3333387FFFFFFFFFFFFF3344444444444433387777777F777777334444444444
        4433388888887F8888883333333443333333333333387F333333333333344333
        3333333333387F3333333333333443333333333333387F333333333333344333
        3333333333387F33333333333334433333333333333877333333333333333333
        3333333333388833333333333333333333333333333333333333}
      NumGlyphs = 2
    end
    object PdfViewer1: TPdfViewer
      Left = 0
      Top = 25
      Width = 587
      Height = 709
      Align = alClient
      About = 'Synactis PDF Viewer version 1.0'
      AutoOpen = True
      Copies = 1
      EndPage = 0
      FitMode = vmFitBoxHorz
      LayoutMode = lmDontCare
      PageMode = pmStandard
      ShowPrintDialog = True
      ShowScrollBars = True
      ShowToolBar = True
      ShrinkToMargins = True
      StartPage = 1
    end
  end
  inherited dlgDS: TDataSource
    DataSet = qRF
    Left = 184
    Top = 24
  end
  object qPeople1: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      
        'SELECT P.PID, (COALESCE(P.PLASTNAME,'#39' '#39')||'#39' '#39'||COALESCE(P.PNAME,' +
        #39' '#39')||'#39' '#39'||COALESCE(P.PPATRONYMIC,'#39' '#39')) AS PP,'
      '    SD.SDNAME, PS.SDID, PDATEBIRTH'
      'FROM PEOPLE P'
      'INNER JOIN P_STATUS PS ON PS.PID = P.PID'
      'INNER JOIN SYS_DIC SD ON SD.SDID = PS.SDID'
      ''
      'WHERE P.PISDELETE IS NULL and PS.sdid = 1246 '
      'ORDER BY 3, 2')
    Left = 368
    Top = 102
    object qPeople1PID: TIntegerField
      FieldName = 'PID'
      Origin = '"PEOPLE"."PID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qPeople1PP: TIBStringField
      FieldName = 'PP'
      ProviderFlags = []
      Size = 767
    end
    object qPeople1SDNAME: TIBStringField
      FieldName = 'SDNAME'
      Origin = '"SYS_DIC"."SDNAME"'
      Size = 255
    end
    object qPeople1SDID: TIntegerField
      FieldName = 'SDID'
      Origin = '"P_STATUS"."SDID"'
    end
    object qPeople1PDATEBIRTH: TDateField
      FieldName = 'PDATEBIRTH'
      Origin = '"PEOPLE"."PDATEBIRTH"'
    end
  end
  object dsPeople: TDataSource
    DataSet = qPeople1
    Left = 336
    Top = 102
  end
  object qRF: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    BeforeOpen = qRFBeforeOpen
    CachedUpdates = True
    SQL.Strings = (
      'SELECT ro.* , iif(ro.RSCAN is null, 0, 1) as is_scan'
      'FROM REQUEST_OTHER ro'
      'where ro.rid = :rid')
    UpdateObject = quRF
    GeneratorField.Field = 'RID'
    GeneratorField.Generator = 'GEN_REQUEST_OTHER_ID'
    Left = 228
    Top = 25
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'rid'
        ParamType = ptUnknown
      end>
    object qRFRID: TIntegerField
      FieldName = 'RID'
      Origin = '"REQUEST_OTHER"."RID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qRFPID_POLUCH: TIntegerField
      FieldName = 'PID_POLUCH'
      Origin = '"REQUEST_OTHER"."PID_POLUCH"'
    end
    object qRFPID: TIntegerField
      FieldName = 'PID'
      Origin = '"REQUEST_OTHER"."PID"'
    end
    object qRFRNOTE: TIBStringField
      FieldName = 'RNOTE'
      Origin = '"REQUEST_OTHER"."RNOTE"'
      Size = 255
    end
    object qRFRDATE: TDateField
      FieldName = 'RDATE'
      Origin = '"REQUEST_OTHER"."RDATE"'
    end
    object qRFRISDELETE: TIntegerField
      FieldName = 'RISDELETE'
      Origin = '"REQUEST_OTHER"."RISDELETE"'
    end
    object qRFRUSERENTER: TIBStringField
      FieldName = 'RUSERENTER'
      Origin = '"REQUEST_OTHER"."RUSERENTER"'
      Size = 40
    end
    object qRFRTIMEENTER: TDateTimeField
      FieldName = 'RTIMEENTER'
      Origin = '"REQUEST_OTHER"."RTIMEENTER"'
    end
    object qRFRUSEREDIT: TIBStringField
      FieldName = 'RUSEREDIT'
      Origin = '"REQUEST_OTHER"."RUSEREDIT"'
      Size = 40
    end
    object qRFRTIMEEDIT: TDateTimeField
      FieldName = 'RTIMEEDIT'
      Origin = '"REQUEST_OTHER"."RTIMEEDIT"'
    end
    object qRFRSCAN: TBlobField
      FieldName = 'RSCAN'
      Origin = '"REQUEST_OTHER"."RSCAN"'
      ProviderFlags = [pfInUpdate]
      Size = 8
    end
    object qRFIS_SCAN: TIntegerField
      FieldName = 'IS_SCAN'
      ProviderFlags = []
    end
  end
  object quRF: TIBUpdateSQL
    RefreshSQL.Strings = (
      'Select '
      '  RID,'
      '  PID_POLUCH,'
      '  PID,'
      '  RNOTE,'
      '  RDATE,'
      '  RISDELETE,'
      '  RUSERENTER,'
      '  RTIMEENTER,'
      '  RUSEREDIT,'
      '  RTIMEEDIT,'
      '  RSCAN,'
      '  IS_SCAN'
      'from REQUEST_OTHER '
      'where'
      '  RID = :RID')
    ModifySQL.Strings = (
      'update REQUEST_OTHER'
      'set'
      '  PID = :PID,'
      '  PID_POLUCH = :PID_POLUCH,'
      '  RDATE = :RDATE,'
      '  RID = :RID,'
      '  RISDELETE = :RISDELETE,'
      '  RNOTE = :RNOTE,'
      '  RSCAN = :RSCAN'
      'where'
      '  RID = :OLD_RID')
    InsertSQL.Strings = (
      'insert into REQUEST_OTHER'
      '  (PID, PID_POLUCH, RDATE, RID, RISDELETE, RNOTE, RSCAN)'
      'values'
      '  (:PID, :PID_POLUCH, :RDATE, :RID, :RISDELETE, :RNOTE, :RSCAN)')
    DeleteSQL.Strings = (
      'delete from REQUEST_OTHER'
      'where'
      '  RID = :OLD_RID')
    Left = 264
    Top = 24
  end
  object dsDL: TDataSource
    DataSet = qDL
    Left = 352
    Top = 198
  end
  object qDL: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      
        'SELECT P.PID, (COALESCE(P.PLASTNAME,'#39' '#39')||'#39' '#39'||COALESCE(P.PNAME,' +
        #39' '#39')||'#39' '#39'||COALESCE(P.PPATRONYMIC,'#39' '#39')) AS PP,'
      '    SD.SDNAME, PS.SDID, PDATEBIRTH'
      'FROM PEOPLE P'
      'INNER JOIN P_STATUS PS ON PS.PID = P.PID'
      'INNER JOIN SYS_DIC SD ON SD.SDID = PS.SDID'
      ''
      'WHERE P.PISDELETE IS NULL and PS.sdid = 1248'
      ' '
      'ORDER BY 3, 2')
    Left = 392
    Top = 198
    object qDLPID: TIntegerField
      FieldName = 'PID'
      Origin = '"PEOPLE"."PID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qDLPP: TIBStringField
      FieldName = 'PP'
      ProviderFlags = []
      Size = 767
    end
    object qDLSDNAME: TIBStringField
      FieldName = 'SDNAME'
      Origin = '"SYS_DIC"."SDNAME"'
      Size = 255
    end
    object qDLSDID: TIntegerField
      FieldName = 'SDID'
      Origin = '"P_STATUS"."SDID"'
    end
    object qDLPDATEBIRTH: TDateField
      FieldName = 'PDATEBIRTH'
      Origin = '"PEOPLE"."PDATEBIRTH"'
    end
  end
  object odScan: TOpenDialog
    Filter = 'PDF|*.pdf'
    InitialDir = 'c:\'
    Left = 648
    Top = 248
  end
end
